home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / MAINFRM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-12  |  2.3 KB  |  91 lines
  1. unit MainFrm;
  2.  
  3. { MemoEdit is a simple OLE Automation enabled MDI-style text editor. The
  4.   application contains the following units:
  5.  
  6.   MainFrm    The MDI main form.
  7.   EditFrm    The MDI child form class and its automation class.
  8.   MemoAuto   The Application automation object.
  9.  
  10.   To register the MemoEdit application as an OLE Automation server, run it
  11.   using the command line "MemoEdit /regserver". To unregister the application,
  12.   use "MemoEdit /unregserver".  You may also do this by running the application
  13.   from the IDE by specifying the command line parameters using the
  14.   Run|Parameters dialog. }
  15.  
  16. interface
  17.  
  18. uses
  19.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  20.   Menus, EditFrm;
  21.  
  22. type
  23.   TMainForm = class(TForm)
  24.     MainMenu: TMainMenu;
  25.     FileMenu: TMenuItem;
  26.     FileNewItem: TMenuItem;
  27.     FileOpenItem: TMenuItem;
  28.     FileExitItem: TMenuItem;
  29.     WindowMenu: TMenuItem;
  30.     WindowCascadeItem: TMenuItem;
  31.     WindowTileItem: TMenuItem;
  32.     WindowArrangeIconsItem: TMenuItem;
  33.     OpenDialog: TOpenDialog;
  34.     SaveDialog: TSaveDialog;
  35.     procedure FileNewItemClick(Sender: TObject);
  36.     procedure FileOpenItemClick(Sender: TObject);
  37.     procedure FileExitItemClick(Sender: TObject);
  38.     procedure WindowTileItemClick(Sender: TObject);
  39.     procedure WindowCascadeItemClick(Sender: TObject);
  40.     procedure WindowArrangeIconsItemClick(Sender: TObject);
  41.   public
  42.     NewFileName: string;
  43.     function CreateMemo(const FileName: string): TEditForm;
  44.   end;
  45.  
  46. var
  47.   MainForm: TMainForm;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TMainForm.FileNewItemClick(Sender: TObject);
  54. begin
  55.   CreateMemo('');
  56. end;
  57.  
  58. procedure TMainForm.FileOpenItemClick(Sender: TObject);
  59. begin
  60.   OpenDialog.FileName := '';
  61.   if OpenDialog.Execute then CreateMemo(OpenDialog.FileName);
  62. end;
  63.  
  64. procedure TMainForm.FileExitItemClick(Sender: TObject);
  65. begin
  66.   Close;
  67. end;
  68.  
  69. procedure TMainForm.WindowTileItemClick(Sender: TObject);
  70. begin
  71.   Tile;
  72. end;
  73.  
  74. procedure TMainForm.WindowCascadeItemClick(Sender: TObject);
  75. begin
  76.   Cascade;
  77. end;
  78.  
  79. procedure TMainForm.WindowArrangeIconsItemClick(Sender: TObject);
  80. begin
  81.   ArrangeIcons;
  82. end;
  83.  
  84. function TMainForm.CreateMemo(const FileName: string): TEditForm;
  85. begin
  86.   NewFileName := ExpandFileName(FileName);
  87.   Result := TEditForm.Create(Application);
  88. end;
  89.  
  90. end.
  91.